home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 037a / wedits22.zip / WEDEFAUL.PAS < prev    next >
Pascal/Delphi Source File  |  1991-08-15  |  2KB  |  88 lines
  1. UNIT WEDefaul; {$O+}
  2. {$B-,E-,F-,N-,R-,S-,V-}
  3.  
  4. INTERFACE
  5.  
  6. PROCEDURE EditDefaults;
  7.  
  8. IMPLEMENTATION
  9.  
  10. USES WEVars, WEOutput, WEInput, WEString;
  11.  
  12. CONST
  13.   Nfields=4;
  14.   NStates=4;
  15.   Fields : ARRAY[1..NFields] OF String = (
  16.     'Lines of message header',
  17.     'Screen height          ',
  18.     'Default Insert State   ',
  19.     'Arrow Key Speed        '
  20.     );
  21.   State : ARRAY[0..Nstates-1] OF String = (
  22.     'All','None','Only Title and Ruler','Only Ruler'
  23.     );
  24.  
  25. PROCEDURE GetScreenState;
  26. VAR
  27.   i:integer;
  28.   ch:char;
  29. BEGIN
  30.   NL;
  31.   FOR i:=0 TO NStates-1 DO
  32.     Print(C2+'<'+C1+chr(i+65)+C2+'>'+c5+' '+state[i]);
  33.   print(C2+'<'+C1+'Q'+C2+'>'+C5+'uit');
  34.   NL;
  35.   Prompt(C2+'Choice > ');
  36.   ch:=ReadSet(['A','B','C','D','Q']);
  37.   ScreenState:=ord(ch)-65;
  38. END;
  39.  
  40. PROCEDURE GetScreenHeight;
  41. BEGIN
  42. END;
  43.  
  44. PROCEDURE GetInsertMode;
  45. BEGIN
  46. END;
  47.  
  48. PROCEDURE GetTimingConstant;
  49. BEGIN
  50. END;
  51.  
  52. PROCEDURE EditDefaults;
  53. VAR
  54.   i : integer;
  55.   ch : char;
  56. BEGIN
  57.   REPEAT
  58.     clrscr;
  59.     Print(C2+'WWIV'+C5+'Edit '+C1+VERSION+C2+' Defaults Section');
  60.     NL;
  61.     FOR i:=1 TO NFields DO
  62.     BEGIN
  63.       Prompt(C2+'<'+C1+chr(i+64)+C2+'>'+c5+' '+Fields[i]+' '+C3+': '+C1);
  64.       CASE i OF
  65.         1 : Print(State[ScreenState]);
  66.         2 : Print(cstr(screenheight));
  67.         3 : IF InsertMode
  68.               THEN Print('Insert Mode')
  69.               ELSE Print('Overwrite Mode');
  70.         4 : Print(cstr(TimingConstant));
  71.       END;
  72.     END;
  73.     print(C2+'<'+C1+'Q'+C2+'>'+C5+'uit');
  74.     NL;
  75.     Prompt(C2+'Choice > ');
  76.     ch:=ReadSet(['A','B','C','D','Q']);
  77.     NL;
  78.     CASE CH OF
  79.       'A' : GetScreenState;
  80.       'B' : GetScreenHeight;
  81.       'C' : GetInsertMode;
  82.       'D' : GetTimingConstant;
  83.     END;
  84.   UNTIL ch='Q';
  85. END;
  86.  
  87. END.
  88.